home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: Alpha / Whiteline Alpha.iso / tools / cpx_acc / cpxbasic / beispiel / talk.bas < prev    next >
Encoding:
BASIC Source File  |  1994-09-22  |  1.6 KB  |  50 lines
  1. 10   REM UNIX-Talk: Über eine Schnittstelle sich auf
  2. 20   REM geteiltem Bildschirm mit dem Partner unterhalten
  3. 30   USING$,-16:USING 0,1
  4. 40   WHILE
  5. 50     CLS:PRINT 'Über welche Schnittstelle':PRINT 'wollen Sie talken?':PRINT
  6. 60     PRINT 'MIDI',0
  7. 70     PRINT 'AUX',1
  8. 80     PRINT 'Modem 1',2
  9. 90     PRINT 'Modem 2',3
  10. 100    PRINT 'Seriell 1',4
  11. 110    PRINT 'Seriell 2',5
  12. 120    PRINT
  13. 130    INPUT a
  14. 140  WEND a>=0 AND a<=5
  15. 150  DIM dev$(5):dev$(0)='MIDI':dev$(1)='AUX':dev$(2)='MOD1'
  16. 160  dev$(3)='MOD2':dev$(4)='SER1':dev$(5)='SER2':del$=CHR$(27)+'K'
  17. 170  endl=9:endx=31:l$=CHR$ $F6
  18. 180  CLS:USING$,0:GOTOXY 0,10:FOR i=1 TO 5:l$=l$+l$:NEXT:PRINT l$;
  19. 190  u1x=0:u1y=0:u2x=0:u2y=11
  20. 200  GOTOXY 6,21:PRINT 'connected via '+dev$(a);:GOTOXY 0,0
  21. 210  WHILE
  22. 220    WHILE
  23. 230      WHILE
  24. 240        key=ASC INKEY$:in=INBYTE dev$(a)
  25. 250        IF key<>0 OR in>0 THEN 310
  26. 260      WEND PEEKL $4BA>time
  27. 270      time=PEEKL $4BA+80
  28. 280      flag=flag XOR 1
  29. 290      IF flag THEN GOTOXY u1x,u1y ELSE GOTOXY u2x,u2y
  30. 300    WEND
  31. 310    IF key=27 OR in=27 THEN CLS:END
  32. 320    IF key=0 THEN 410
  33. 330    GOTOXY u1x,u1y:PRINT del$;
  34. 340    WHILE OUTBYTE dev$(a),key<>0:WEND
  35. 350    IF key=13 THEN u1x=endx:key=10
  36. 360    PRINT CHR$(key);
  37. 370    u1x=u1x+1
  38. 380    IF key=8 THEN u1x=u1x-2:IF u1x<0 THEN u1x=0
  39. 390    IF u1x>endx THEN u1x=0:u1y=u1y+1
  40. 400    IF u1y>endl THEN u1y=0
  41. 410    IF in<0 THEN 490
  42. 420    GOTOXY u2x,u2y:PRINT del$;
  43. 430    IF in=13 THEN u2x=endx:in=10
  44. 440    PRINT CHR$(in);
  45. 450    u2x=u2x+1
  46. 460    IF in=8 THEN u2x=u2x-2:IF u2x<0 THEN u2x=0
  47. 470    IF u2x>endx THEN u2x=0:u2y=u2y+1
  48. 480    IF u2y>endl+11 THEN u2y=11
  49. 490  WEND
  50.